home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / ums / ums-beta / rexx / umsinit.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-25  |  2KB  |  61 lines
  1. /* ------------------------------------------------------------------------
  2. :Program.   UMSInit.rexx
  3. :Contents.  constant definitions and initialisations for ums.library
  4. :Author.    Martin Horneffer
  5. :History.   v1.0 [mh]  26-Sep-93
  6. :History.   v1.1 [hG]  22-Jan-94 added default parameter parsing,
  7. :History.                        incl. of RexxDosSupport.library etc.
  8. :Hsitory.   v1.2 [hG]  11-Jul-94 clear RC after GetVar()
  9. :History.   v1.3 [hG]  18-Jul-94 uses rexxdossupport.library 2.2
  10. :History.   v2.0 [hG]  18-Jul-94 adapted to UMS V11
  11. :Version.   $VER: UMSInit 2.0 (25.1.95)
  12. :Copyright. Freely Distributable
  13. :Language.  ARexx
  14. ------------------------------------------------------------------------ */
  15.  
  16. /*** Startup ***/
  17.  
  18. options results
  19. signal on BREAK_C
  20. signal on BREAK_D
  21. signal on BREAK_E
  22. signal on BREAK_F
  23. signal on ERROR
  24. signal on HALT
  25. signal on IOERR
  26. signal on SYNTAX
  27.  
  28. RC = 0
  29.  
  30. /*** Open ums.library ***/
  31. /* result is ignored since AddLib() does not check whether the lib
  32.  * exists but only whether the name is already in the list
  33.  */
  34. call addlib('rexxdossupport.library', 0, -30, 2)
  35. call addlib('ums.library', 0, -210, 11)
  36. call UMSInitConsts()
  37.  
  38. /* get default values, parse arguments */
  39.  
  40. if symbol("server") ~= "VAR" then server = GetVar('UMSServer')
  41. if symbol("name") ~= "VAR" then name = GetVar('username')
  42. RC = 0 /* don't care about missing ENV-Variables */
  43.  
  44. parse arg arguments
  45.  
  46. if strip(arguments) = '?' then do
  47.   call writech(STDOUT, ArgsTemplate || ': ')
  48.   /*arguments = readln(STDIN)*/
  49.   pull arguments
  50. end; else nop
  51. if ~ ReadArgs(arguments,ArgsTemplate) then do
  52.   say Fault(RC,ProgramName)
  53.   exit 10
  54. end; else nop
  55.  
  56. drop arguments
  57.  
  58. /* Login is not done here to give the the chance to overwrite
  59.  * the arguments/env-vars during test phase of skripts.
  60.  */
  61.